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MODULE SNDSMB ( 


BEGIN 


' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

& 

® 

! ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS O HE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
« 

® 

am 

® 

® 

* 

® 

® 

® 

® 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: seokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
7* . 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e¢ 
i FACILITY: F11XQP Structure Level 2 
} ABSTRACT: | 
: This routine constructs and sends a message to the symbiont manager 
: : to cause a file to be spooled and deleted. 
re ! ENVIRONMENT: 
cs and internal exec routines. 


| 
STARLET operating system, including privileged system services | 
| 
AUTHOR: Andrew C. Goldstein, CREATION DATE: S-Jun-1978 11:23 | 
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49 : 
3 i : MODIFIED BY: 

¢ 05 i v03-007 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:48 
34 5 Add AST parameter so that impure storage is fully based 

5 2 i v03-006 CDS0005 Christian D. Saether 30-Dec-1983 

$ 2 Use L_NORM Linkage and BIND_COMMON macro. 
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SNDS' 16-Sep-1984 17:1 VAX-11 Bliss-32 V4.0-742 2 
5042080 12-808-1382 Pe ae DISKSVMSMASTER: CCFIIX. SRCISNDSMB.B32; (29 af 
; H 1! v03-005 £85006 Christian D. Saether 26-Jul-1983 
; : : Use new send job controller service. 
: 61 1 i v03-004 ¢D$0003 Christian D. Seether 13-May-1983 
; 6¢ : } Reflect change to Toescy T _DEVNAM interface. 
: 64 1 | v03-003 CwH1002 Cw Hobbs 1-Mar-1983 
cr) oe : Use extended pid and owner in symbiont message 
; 8 1 i v03-002 cpS0002 Christian D. Saether 16-Dec-1982 
: o8 : } Make item List generation pic. 
: $3 1 i v03-001 CDS0001 C Saether 30-Jul-1982 
cc ae 2 Changes for ACP to xXQP. 
3 f : No timer on waiting for job controller reply. 
; 1 i V02=004 ACG0245 Andrew C. Goldstein, 23-Dec-1981 21:21 
3 f : : Check error return from queue manager 
aye 1: v02=003 SPF0025 Steve Forgey 08-Sep-1981 
; % 0078 : Add new header fields to Syabtont manager message. 
: 080 1} V02-001 GwWF0043 Gary W. Fowler 12-May-1981 15:20 
: 1 0081 1! Add file size option and file” size to message sent to job 
; ¢ Bong : controller. 
; Bc goes 1 i v02-000 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
; 5 085 1! Previous revision history moved to (F11B8.SRCJF11B.REV 
; 86 poe 1 lee 
3 4 0087 1 
3 8 aie: 1 
3 89 89 1 LIBRARY 0 be Sat JORARY *h 18,152"; 
3 90 0090 1 REQUIRE ‘SRCS:FCPDEF.B32'; 
3 91 1081 1 
5 36 19s6 1 
+ Se 1083 1 MACRO 
; | 94 1084 1 
; 9 1085 1 ! Layout of item List for job controller. 
; Ise 1 i The first item is the queue name 
; «(97 1087 1! The second item is the file identification. 
; «98 1088 1! The third item is the delete file item code. E 
3 99 3 1 i Only fields that are filled in with non-zero values are defined. 
: 100 1090 1! 
: 101 1091 1 
3 106 94 1 1TM_QNAMS 17 = 0, 8. 16, 0 %, ! queue name size 
: 10 1093 1 1 TM_QNAMCODE = 2, 0, 18- i, ' queue name item code 
; He : : : 1 TM_QNAMADDR #46, ©, 32. © Be ' queue name address 
; 196 1096 1 ITM_FILEINFOSIZ = 2, 0, 16, 0 , | file identification size 
: 10 1097 1 ITM“FILEINFOCODE = . 18. 0% i file id item code 
; 138 4: : ITM_FILEINFOADDR = 1. 1; ' file id address 
: 110 1 ITM_DELFILECODE = 26, 0, 16, 02%; ' delete file item code. 
: 118 11 ¢ 1 
s 11 1 LITERAL 
3; («114 11 1 ITM_LENGTH = 3e12 + 4, ! 3 item codes + stopper. 


150-138 PaaS bTScbiwGmaSteasch 11k: one asnosme.es21°%° «13 


s Wy 1105 (1 FS_LENGTH = 16 + 2*FIDSC_LENGTH + 46 + 4 + 
; 1188 1 + 18 + $ + PLoSS FILENAME + £1288_F LENAMEXT; 
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16-Sep-1984 :17:1 VA 
1e28ep= 1386 93:45:48 i 
GLOBAL ROUTINE SEND_SYMBIONT (HEADER, FCB) : L_NORM NOVALUE = 
'ee 
! 


i FUNCTIONAL DESCRIPTION: 


This routine constructs and sends a message to the symbiont manager 
to cause a file to be spooled and deleted. 


K-11 Bliss-32 V4.0-742 Page 4 
SKSVMSMASTER:CF11X.SRCJSNDSMB.B32; 1 (2) 


3 
ii 


a 


CALLING SEQUENCE: 
SEND_SYMBIONT (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of file header 
ARG2: address of file control block 


IMPLICIT INPUTS: 
IO_PACKET: address of 1/0 packet of this request 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
message sent to symbiont manager 
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WR 0 CONO USWA (0 OONO UE WIN (OOD NOUS WIN 0 ODNO UE WWN  OCONOU SW O0O~ 
POPRPOPOPOPOPOPPONEPUPIPIPIPIPIPINININIDINID 4 9 8 9 9 9 es 

= @o 

m 

vu oO 

— 

2 


HEADER : REF BBLOCK, ! file header ar 
FCB : REF BBLOCK; ! file control block arg 
BUILTIN 
LOCC; 
LINKAGE 
L_I0C_CVvT = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 5, 
EGISTER = 4. REGISTER = 1) : 
64 NOTUSED (6, 7, 8. 9, 10, 11); 
66 LOCAL ) 
67 ITEMLIST : BBLOCK Te LENGTH], ! item List for jbc. 
68 FILEINFO_STR : VECTOR CFS_CENGTH, 6yiel, ! everything the jbc wants 
$° ! to know about the file. 
0 e ! string scan pointer 
71 JACSTS : VECTOR (23, | io status block for SNDJBC 
% LENGTH, ' Length of converted device name 
7 IDENT_AREA : REF BBLOCK, ! address of file header ident area 
74 ucB : REF BBLOCK, ! UCB of spooled device 
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1 0-742 p 5 
1 ix. SRCJSNDSMB.B32;1), (2). 
1 


} vcB : REF BBLOCK; VCB of spooled device 
: BIND_COMMON; 
EXTERNAL ROUTINE 
WAIT : L_NORM NOVALUE, ! wait for completion AST 


FOR_AST : LL 
CONTINUE- THREAD : L_NOR 


M NOV ; consis ‘ee AST to resume thread 
LOCSCVT_BEVNAM : L-JOC_C DE (GE ; 


ALUE, 
VT ADDRESSING NERAL); 
! get device name of UCB 


Initialize item list to zeroes. 


CHSFILL (0, ITM_LENGTH, ITEMLIST); 
Get UCB and VCB addresses for the spooled device. | 


UCB = .10_PACKETCIRPSL_MEDIA); 
vCB = .UCBCUCBSL_VCB); 


! Point the first item at the queue name in the spooled device's VCB. 
! This arnt be a little racy in that we could become unscheduled and 
' the device set non-spooled or changed before the sndjbc service gets 
a chance to look at it, but that should be no more harmful than 

' 
! 
1! 


Lt hat tt te rte PPR PPR N RP AN AP WS 4S 
we 


SSSR AN SSS SAFI SSaNoonuns—owe 


' we copied it off to local storage and it changed before the service 
' executed anyway. At worst the VCB gets deallocated and some garbage 
! is picked up for the name. BFD. 


BALLS SSLESRANSLESSELEARAVESSAISA 


aR 


ITM_QNAMSIZ) = .VCB_CVCBSB_QNAMECNT); 
ITMQNAMCODE) = SJC$_ QUEUE; 
ITM_QNAMADDR) = VCB CVCBSB_QNAMECNT] + 1; 


I 
I 
I 
: in the file identification ateing. 

' "Wormal"’ callers of this service supp 1 only the counted device 
string, the file ID and the directory ID. The service then performs 
' 

' 

! 

' 

1 

! 

! 

' 

' 

! 
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' an access function on that file to recover other information it needs 


DIR DIAS a kk a ad dt 8 


COC OOOOOWOOOO 


in a trustworthy manner. 


Wre—Ooe 


| 
' However, we ARE the file system, and therefore can be trusted. Also, 
! an attempt to call us back recursively with an access function just 
! flat out will not work, because we'll be sitting here waiting for the 
' SNDJBC service to finish. 
!' Therefore, we will also put the ong of file block access mask, | 
! and expanded file spec in this string also. SNDJBC will Look at it | 
! because we are calling from exec mode or better and use this info 
' rather than doing an access function on the file. | 
| 


—> —) 
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! First get the counted device string. Leave the trailing ‘':"’ on 
the string for now, because we'll want it a Little later when 
' 


' the full Tile name string is built. 


1OCSCVT_DEVNAM (15, FILEINFO_STR (1) | 
cu UCB; 0; LENGTH); 
FILEINFO_STR [0] = .LENGTH; 
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' Pick up the file ID from the *CB sneteed of the file header 
! because the RVN has already been normalized in the FCB, i.e., 
: APPLY_RVN has already been called. 
} Also zero out the DID while we're at it. 
CHSCOPY (FIDSC_LENGTH, FCBCFCBSW_FIDJ, 0, 2*FIDSC_LENGTH, FILEINFO_STR (16)); 
Next is the end of file block for the file. 
(FILEINFO_STR €28))<0,32> = ROT { .ROLOCKENEADERCFNESU_RECATTAI PATSL_EFELKI, 16); 
IF .(FILETNFO_STR (2 $< 32> NEQ 
AND .BBLOCKCHEADERCFH2SW_RECATTRI,FATSW_FFBYTE) EQL 0 
(FILEINFO_STR (28))<0,32> = .(FILEINFO_STR (28))<0,32> - 1; 


} File access mask (everything allowed). 


(FILEINFO_STR (32))<0,32> = EX'FFFFFFFF’; 


! Build an expanded file name string including the device, null directory 
; spec, and the file name. 


P = CHSMOVE (.FILEINFO_STR CO), FILEINFO_STR C1), FILEINFO_STR (38)); 


: Now that the entire device spec has been copied, adjust the count 
! on the first gtr ing to drop the trailing ":'', just Like RMS does 
; for the DVI field in the NAM block. 


FILEINFO_STR CO) = .FILEINFO_STR (0) - 1; 
Add in null directory spec. 


(.P)<0,16> = ‘CI'; 
P= .P + 2; 


Now pick up the file name from the ident area in the header. 


IDENT_AREA = .HEADER + .HEADERCFH2$B_IDOFFSET] * 2; 


P = CHSMOVE (FI2$S_FILENAME, IDENT AREA CFI2$T_ FILENAME], .P); 
P = CHSMOVE (FIOSS"FILENAMEXT, IDERT_AREA CFI2ST_FILENAMEXT), .P); 


Find the end of the filename. It is delimited by the space character 
if less than the full filename size. 
Turns out that the maximum legal filename is 39 + 1+ 39 +1 + 5, or 

. whereas the filename plus filenamext add up to 86. 
Scan for characters from the beginning of the concatenated filename. 
Set P back to the beginning of the string we just copied and scan. 
Using P as the second output argument causes it to get the address 


0-742 2 
ix.SRCJSNDSMB.B32;1-9" (2 
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of the located space character after the locc Snceuses, yates will 
e 


' 
ther be at the space character, if found, or at the ‘th byte. 


LOCC (ZREF(* "), BREF (85), (.P = FI2SS_FILENAME = FI2SS_FILENAMEXT) ; ,P); 


! We skipped 1) hing in the size field at byte 36 in this string so 
! get it now. The filename string started at byte 38. 


(FILEINFO_STR (36])<0,16> = .P = FILEINFO_STR (38); 
Set up the item List entry for the file information string. 


ITEMLIST CITM_FILEINFOSIZ) = .F = FILEINFO_STR (0); 
ITEMLIST LITM_FILEINFOCODE] = SJCS_FILE DEN ICATION; 
ITEMLIST CITM_FILEINFOADDR) = FILETNFO_STR (OJ; 

Finally the item code to delete the file after printing. 


ITEMLIST CITM_DELFILECODE] = SJC$_DELETE_FILE; 


! The status from the service is always written to the iosb and the 
! completion ast is always delivered, regardless of status, so we 
do not need to separately check the status of the service call. 


SSNDJBC (EFN = EFN 
FUNC = SUC$_ENTER_FILE, 
10SB = JBCSTS 
ASTADR = CONTINUE_THREAD, 
ASTPRM = .BAS 
ITMLST = ITEMLIST); 


: The completion ast is always delivered, so we must always wait for it. 


WAIT_FOR_AST (); 
: A full longword of status is returned from sndjbc. 


If NOT .JBCSTS (0) 
THEN 


BEGIN 
CLEANUP FLAGSECLE PELE ILE = 1; 
USER_STATUSC1) = TyBCSTS (0); 
ERR_EXIT (SS$_NOTPRINTED); 
END; 
END; ! end of routine SEND_SYMBIONT 
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.EXTRN WAIT_FOR_AST, CONTINUE_THREAD 
“EXTRN IOCSCVT_BEVNAM, SYSSSNBJBC 


-PSECT SCODES,NOWRT,2 | 


OOFC ENTRY SEND SYNBIONT, Save R2,R3,R4,R5,R6,R7 : 1107) : 

56 FF4O «6CE OSE MOVAB 92TSP) : | ; 

80 AA 3 MOV “12 (BASED : 1164 ; 

28 00 6E 00 eC 0000 MOVES #0. (SP), #0. "940, 1TEMLIST ; 1177 ; 
$0 AA D 1 MOVL -112(BASE), RO + 1182 ; 

AO D 1 MOVL 5 (RO), UCB : : 

4 A p 1A MOVL (ucBs ,~ vcB + 1183 ; 

D8 AD AO 98 3 MOV2BW 11(VCB) ITEMLIST + 1194 ; 

DA AD 86 «BF O90 002 MOVZBW #134 IfEML IST + 1195 ; 

DC «AD OC AO 9E 00028 OVAB 12(R6), ITEMLIST+4 + 1196 ; 

51 09 AE 9E 99 D MOVAB FILEINFO_STR#1, R1 + 1218 : 

54 D4 00031 CLRL RG : ; 

55 94 AA 00 00 ; MOVL 7198(BASED. RS : ; 

50 OF DO 000 MOVL #15, RO : ; 

000000006 00 if} 003A JSB 10C$CVT_DEVN : ; 

08 A 51 90 00040 MOVB LENGTH “PILEINFO. STR + 1220 : 

5 08 AC B0 0044 MOVL FCB, + 1228 ; 

0c 00 24 AO i 06 C 0048 MOVCS #6, 36(RO), #0, #12, FILEINFO_STR+16 ; : 
50 04 Ac dO 0080 MOVL HEADER + 1233 ; 

24 «AE 1c =A 10 6 90054 ROTL #16, BB cROD. FILEINFO_STR+28 : : 
08 13 0005A BEQL '1$ > 1234 ; 

20 Ad B5 0005¢ TSTW  32(RO) > 1235 ; 

0 if 005F BNEQ = '1$ : : 

24 AE Dd? 00061 DECL FILEINFO_STR+28 : 1337 : 

28 «AE 01 CE 00064 1$: MNEGL #1, FILETNFO_STR+32 + 1242 ; 

50 08 AE 9A 00068 MOVZBL FILEINFO_STR; RO + 1248 ; 

2—E = AE 09 AE 5 ¢8 Boe. MOVC RO, FILETNFO_STR+1, FILEINFO_STR+38 3 3 
08 AE 00 : DECB FICEINFO STR : 1355 ; 

83 5058 8F B0 0007 MOVW #23899, TP)+ + 1260 ; 

50 04 BC 9A OO007A MOVZBL @HEADER, RO > 1266 ; 

56 04 BC4 O07E MOVA aHEADERERO], IDENT_AREA : ; 

63 66 14 008 MOVC3 #20, (IDENT AREA), ~(P) : 1268 ; 

63 36 AG 0042 8F 0087 MOV Bis 54(IDERT AREA), (P) + 1269 3 

AA AS 0055 BF 20 A OO8E LOCC #32, #85, -86TP) + 1282 ; 
53 1 00 0009 MOVL , RS ; : 

50 2E Ar H 0098 MOV Fit CEINFO_STR+38, RO + 1287 ; 

2c OAL 3 50 A 009¢ SUBW3 =RO, P, FILEINFO STR+36 : ; 
g 08 AE 9E O00A1 ROVAB FILEINFO STR + 1292 : 

E4 AD 50 A OAS SUBW3 RO, P, ITEMLIST#+12 : F 
E6 AD 2 2 OAA mMOVw #39, FTEMLIST+14 + 1293 : 

Eg AD 08 AE : OOA MOVAB FILEINFO_STR JIEMLIST#16 > 1294 : 

F2 AD 18 BO 0008 MOV) #24, ITEMLIST+ : 1299 ; 

5A DD 0008 PUSHL BASE > 1311 ; 

00006 CF 9F 00089 PUSHAB CONTINUE_THREAD ; : 

08 AE 9F 000B PUSHAB JBCST : : 

D AD Hi 00C PUSHAB ITEMLIST : : 

7E 13 7D 000C¢ Ova #19, -(SP : : 

I DD C6 PUSHL #30 ; ; 

000000006 00 0 FB 000C CALLS SYSSSNDJBC : : 

00006 CF 0 FB OOOCF CALLS #0. WAIT_FOR_AST : 1316 ; 
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9042000 14-Sep- 382 9}: Yl DISKSVMSMASTER: :CF11X.SRCISNDSMB.B32; 1 . (2) 
0C D4 BLBS JBCST ; 1321 
02 AA 5 bs D7 BISB2 i Stake ASE) > 1324 
A7 —E OD DB MOVL Epis. 4(R7) i: 1325 
2184 F Bf OF CHMU 3 7 $ 
4 E3 2$: ET . 3 
; Routine Size: 228 bytes, Routine Base: S$CODE$ + 0000 
; 341 1330 1 
3 rh} 1331 1 END 
: 1332 0 ELUDOM | 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 228 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Pa ng Ce ee Sia ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 37 0 1000 00:01.9 
é COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SNDSMB/OBJ=OBJ$:SNDSMB MSRC$:SNDSMB/UPDATE=(ENHS: SNDSMB) 


; Size: t 
S + 228 ob648.3 + 0 data bytes 


3 ey Time: 8: : 
; Lines/CPU Min: 
3 Lexemes/CPU-Min: 4908 

3 Used: 231 pages 
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